|
Inventor VBA : Alle geöffneten idws Drucken
dero2k am 12.10.2011 um 08:09 Uhr (0)
HiIch habe mir ein macro erstellt um die geöffnete IDW mit meinen Einstellungen auf A3 Drucken zu lassen. Funktioniert so weit auch supper. Jetzt würde ich das macro gerne abändern, bzw. Ein 2. Erstellen mitdem alle geöffneten IDWs so gedruckt werden. Gibt es dazu villeicht schon Beispiel Code oder könnt ihr mir sagen mit welchem Befehl ich das ganze realisieren kann ?Danke schonmalDero
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Macro auf allen blättern einer IDW ausführen
dero2k am 29.04.2013 um 12:30 Uhr (0)
Hihabe mir gerade ein Macro geschrieben was automatisch den maßstab einer zeichnung ausfüllt funktioniert soweit auch perfekt.nun würde ich aber gerne das macro gleich über alle blätter der IDW laufen lassen, zurzeit wird der maßstab nur bei dem aktiven blatt ausgefüllt.hier mal der codeCode:Function SetPromptValue(ByVal fBlock As TitleBlock, _ByVal fPrompt As String, _ByVal fValue As String)Changes the value of prompted entry in the title blockOn Error Resume NextDim oTextbox As Inventor.TextBoxDim oTextB ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Macro auf allen blättern einer IDW ausführen
dero2k am 29.04.2013 um 16:34 Uhr (0)
so habe es geschafft.hier mal der code falls es jemanden interessiert.Code:Public Sub Maßstab() Dim oSourceDocument As DrawingDocument Set oSourceDocument = ThisApplication.ActiveDocumentDim oSheet As Sheet For Each oSheet In oSourceDocument.Sheets oSheet.ActivateCall prompt_fillNext End Sub
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : vba skizzierte symbole nach namen
dero2k am 29.04.2013 um 11:17 Uhr (0)
hidanke für die antwort habe es aber in diesem moment so gelöst bekommen.Code: Dim myidw As DrawingDocument Set myidw = ThisApplication.ActiveDocument Dim oSS As SketchedSymbol For Each oSS In myidw.ActiveSheet.SketchedSymbols If oSS.Definition.Name = "Zusatzschriftfeld 2" Then Set otext = oSS.Definition.Sketch.TextBoxes.Item(4)Call oSS.SetPromptResultText(otext, sMassstab1) End If NextEnd Subjetzt wäre noch die frage wie ich das macro über alle blätter einer zeichnung aufeinmal laufen lasse ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : vba skizzierte symbole nach namen
dero2k am 29.04.2013 um 10:38 Uhr (0)
Hihabe mir ein macro erstellt was einen wert in einem skezzierten symbol ausfüllt.Code:Dim odrawdoc As DrawingDocumentSet odrawdoc = ThisApplication.ActiveDocumentDim Sym As SketchedSymbolSet Sym = odrawdoc.ActiveSheet.SketchedSymbols.Item(1)Dim otext As TextBoxSet otext = Sym.Definition.Sketch.TextBoxes.Item(4)Call Sym.SetPromptResultText(otext, "xxx33x33")End Subfunktioniert soweit auch ganz gut das einzige problem was ich noch habe das er das symbol über .Item(1) auswählt, also das zuerst gesetzte. nun ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Part macro bei doppelklick in baugruppe nutzen
dero2k am 13.08.2012 um 14:08 Uhr (0)
Hi forumIch habe ein Makro um in einem part mit einem klick direkt die ausgewählte fläche in einer bestimmten farbe einzufärbenallerdings funktioniert dies leider nicht wenn ich das part in der baugruppe geöffnet habe. also doppelklick auf das teil. dann wird ja alles andere durchsichtig.hier mal der code, villeicht kann mir ja jemand helfen dies so anzupassen Code:Public Sub Passflächen() Dim strColorName As String strColorName = "RAL 1012 Zitronengelb" On Error Resume Next Dim oPartDoc As PartDocum ...
|
| In das Form Inventor VBA wechseln |
